-- background: 2648 from stack: in
-- bmap block id: 3242
-- flags: 4000
-- background id: 0
-- name: NORMAL BACKGROUND


-- part 71 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=75 top=22 right=36 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: phone number


-- part 91 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=472 top=312 right=335 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: NEXT
----- HyperTalk script -----
on mouseUp
  visual effect scroll left
  go to next card
end mouseUp


-- part 97 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=457 top=287 right=311 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HOME
----- HyperTalk script -----
on mouseUp
  visual effect zoom close
  getHomeInfo
  go home
end mouseUp




-- part 98 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=439 top=310 right=337 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PREV
----- HyperTalk script -----
on mouseUp
  visual effect scroll right
  go to previous card
end mouseUp


-- part 139 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=258 top=290 right=335 bottom=291
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SCAN
----- HyperTalk script -----
on mouseUp
  show message box at 20,298
  put "Click the mouse to stop the scanning..."
  repeat until the mouseclick
    visual effect dissolve
    go to next card
    wait 1 seconds
  end repeat
  hide message box
end mouseUp




-- part 155 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=205 top=289 right=336 bottom=241
-- title width / last selected line: 65535
-- icon id / first selected line: -15903 / 49633
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DIAL
----- HyperTalk script -----
on mouseUp
  get userlevel
  if it = 1
  then set userLevel to 2
else
  if it = 5
  then set userlevel to it
end if
get loc of field "Info"
click at it
type tab
DoMenu Copy Text
If highlite of background button ID 159 is true and highlite of background button ID 156 is true then
  Open "Dial1200.PROC" with "Red Ryder"
else
  If highlite of background button ID 159 is true and highlite of background button ID 157 is true then
    Open "Dial2400.PROC" with "Red Ryder"
  else
    If highlite of background button ID 159 is true and highlite of background button ID 158 is true then
      Open "Dial9600.PROC" with "Red Ryder"
    else
      If highlite of background button ID 160 is true and highlite of background button ID 156 is true then
        Open "Dial1200.MP" with "MicroPhone"
      else
        If highlite of background button ID 160 is true and highlite of background button ID 157 is true then
          Open "Dial2400.MP" with "MicroPhone"
        else
          If highlite of background button ID 160 is true and highlite of background button ID 158 is true then
            Open "Dial9600.MP" with "MicroPhone"
          end if
        end if
      end if
    end if
  end if
end if

end mouseUp



-- part 156 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=19 top=317 right=335 bottom=74
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1200
----- HyperTalk script -----
on mouseUp
  set highlite of bkgnd button ID 156 to true
  set highlite of bkgnd button ID 157 to false
  set highlite of bkgnd button ID 158 to false
end mouseUp



-- part 157 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=80 top=318 right=335 bottom=134
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2400
----- HyperTalk script -----
on mouseUp
  set highlite of bkgnd button ID 156 to false
  set highlite of bkgnd button ID 157 to true
  set highlite of bkgnd button ID 158 to false
end mouseUp



-- part 158 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=138 top=317 right=335 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 9600
----- HyperTalk script -----
on mouseUp
  set highlite of bkgnd button ID 156 to false
  set highlite of bkgnd button ID 157 to false
  set highlite of bkgnd button ID 158 to true
end mouseUp



-- part 159 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=9 top=295 right=313 bottom=97
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Red Ryder
----- HyperTalk script -----
on mouseUp
  set highlite of background button ID 159 to true
  set highlite of background button ID 160 to false
end mouseUp



-- part 160 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=100 top=296 right=312 bottom=202
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MicroPhone
----- HyperTalk script -----
on mouseUp
  set highlite of background button ID 159 to false
  set highlite of background button ID 160 to true
end mouseUp



-- part 179 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=302 top=290 right=335 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FIND
----- HyperTalk script -----
on mouseUp
  ask "Enter text to search for:"
  put it into searchtext
  show message box at 20,298
  put "Click the mouse to stop the searching..."
  repeat until the mouseclick
    Find chars searchtext
    wait 1 seconds
    visual effect dissolve
  end repeat
  hide message box
end mouseUp


-- part 83 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=6 top=38 right=286 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Info
----- HyperTalk script -----




-- part 194 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=346 top=289 right=336 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SORT
----- HyperTalk script -----
on mouseUp
  --
  put empty
  show message box at 19,134
  put "Now sorting the listings by area code..."
  --
  sort by field 1
  --
  beep
  put "sorting completed!"
  hide message box
end mouseUp



-- part 195 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=393 top=290 right=335 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 17481 / 17481
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: NEW
----- HyperTalk script -----
on mouseUp
  DoMenu "New Card"
end mouseUp